﻿Imports System.Data.DataTableExtensions
Imports System.Data.Sql
Partial Public Class projekt_uebersicht_intern
    Inherits System.Web.UI.Page
    Private _db As hc_databaseDataContext
    Private _funktionen As stored_functions










    Protected Sub bla(ByVal sender As Object, ByVal e As EventArgs) Handles gv_Projektuebersicht_intern.SelectedIndexChanged, gv_Projektuebersicht_intern.SelectedIndexChanged
        Dim db As New hc_databaseDataContext
        Dim row As GridViewRow = gv_Projektuebersicht_intern.SelectedRow
        Dim projektname As String = row.Cells(1).Text
        Dim var = (From it In db.Projekts _
                 Where it.Name = HttpUtility.HtmlDecode(projektname) _
                 Select it.ID).Single
        Response.Redirect("projekt_detail.aspx?Name=" + var.ToString)



  

    End Sub

    Protected Sub SqlDataSource1_Selecting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.SqlDataSourceSelectingEventArgs) Handles SqlDataSource1.Selecting
        
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        
Dim funktionen As New stored_functions
funktionen.update_geleistetprojekte

    
    
    End Sub
End Class